home *** CD-ROM | disk | FTP | other *** search
/ PC World 1999 October / PCWorld_1999-10_cd1.bin / Software / Servis / X-setup / _SETUP.1 / XQ Explorer Options.xpl < prev    next >
Text File  |  1999-06-12  |  3KB  |  101 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 5.0"
  2. "TYPE"="6"
  3. "COUNT"="4"
  4. "UIPATH"="Appearance\Explorer\Options"
  5. "NAME"="Windows Explorer Options"
  6. "VERSION"="1.3"
  7. "LANGUAGE"="VBScript"
  8. "TEXT 1"="Show "File" menu"
  9. "TEXT 2"="Enable fast update"
  10. "TEXT 3"="Wrap long icon-titles"
  11. "TEXT 4"="Always use double-pane Explorer style"
  12. "DESCRIPTION 1"="To hide the "File" menu inside the Windows Explorer, deactivate the first option."
  13. "DESCRIPTION 2"="The other options can be changed as needed."
  14. "DESCRIPTION 3"=""
  15. "AUTHOR"="Xteq Systems"
  16. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  17. "COMMENT 1"="For more information, go to http://www.xteq.com or write to TeXHeX@xteq.com."
  18. "COMMENT 2"="Option DesktopProcess disabled due to problems..."
  19.  
  20.  
  21. sP1="HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\"
  22. sV1="NoFileMenu"
  23. sV2="HKLM\System\CurrentControlSet\Control\Update\UpdateMode" 'BINARY!
  24. sV3="HKCU\Control Panel\Desktop\WindowMetrics\IconTitleWrap"
  25.  
  26. 'does anybody where this stuff comes from!?!?!?!
  27. 'AK: askSam(now) 
  28. sExpPath="HKCR\Folder\Shell\Open\ddeexec\@"
  29. sExpDoub="[ExploreFolder(""%l"", %I, %S)]"
  30. sExpNorm="[ViewFolder(""%l"", %I, %S)]"
  31.  
  32.  
  33. 'All settings not used at the momment
  34. 'sP2="HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\"
  35. 'sV2="DesktopProcess"
  36. '"DESCRIPTION 2"="Activating "Run Windows Explorer as separate process" to avoid that Desktop, Taskbar and Explorer run in the same process. Note: This option will work on Windows NT only."
  37. '"TEXT 2"="Run Windows Explorer as separate process"
  38. 'Settings from Windows 98 with IE 5
  39. '[HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\explorer\BrowseNewProcess]
  40. '"BrowseNewProcess"="NO"
  41.  'i=RegReadValue(sP2&sV2)
  42.  'If i=1 then SetUIElement 2,true
  43.  'b=GetUIElement(2)
  44.  'if b=true then
  45.  ' Call RegWriteValue(sp2&sv2,1,2)
  46.  'else
  47.  ' Call RegWriteValue(sp2&sv2,0,2)
  48.  'end if
  49. Sub Plugin_Initialize 
  50.  i=RegReadValue(sp1&sv1)
  51.  If IsEmpty(i) or i=0 then SetUIElement 1,true
  52.  
  53.  b=RegReadValue(sV2)
  54.  if b="00" then SetUIElement 2,true
  55.  
  56.  b=RegReadValue(sV3)
  57.  if b=1 then SetUIElement 3,true 
  58.  
  59.  s=RegReadValue(sExpPath)
  60.  if ucase(s)=ucase(sExpDoub) then SetUIElement 4,true
  61. End Sub
  62.  
  63. Sub Plugin_CheckData(ElementIndex)
  64. End Sub
  65.  
  66. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  67.  b=GetUIElement(1)
  68.  if b=true then
  69.     Call RegWriteValue(sp1&sv1,0,2)
  70.  else
  71.     Call RegWriteValue(sp1&sv1,1,2)
  72.  end if
  73.  
  74.  b=GetUIElement(2)
  75.  if b=true then
  76.     Call RegWriteValue(sV2,"00",3)
  77.  else
  78.     Call RegWriteValue(sV2,"01",3)
  79.  end if
  80.  
  81.  b=GetUIElement(3)
  82.  if b=true then
  83.     Call RegWriteValue(sV3,1,2)
  84.  else
  85.     Call RegWriteValue(sV3,0,2)
  86.  end if
  87.  
  88.  b=GetUIElement(4)
  89.  if b=true then
  90.     Call RegWriteValue(sExpPath,sExpDoub,1)
  91.  else
  92.     Call RegWriteValue(sExpPath,sExpNorm,1)
  93.  end if
  94.  
  95.  
  96.  Restart
  97. End Sub
  98.  
  99. Sub Plugin_Terminate 
  100. End Sub
  101.